home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / corew222.zip / CHANG1.WAR < prev    next >
Text File  |  1990-07-28  |  204b  |  14 lines

  1. ;CHANG1  (an example using SPL)
  2. mov     #0       -1
  3. jmp     -1
  4. dat     +9
  5. spl     -2
  6. spl     4
  7. add     #-16     -3
  8. mov     #0       @-4
  9. jmp     -4
  10. spl     2
  11. jmp     -1
  12. mov     0        1
  13. end
  14.